home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netdmo.exe / NETDEMO.FRM < prev    next >
Text File  |  1993-12-10  |  8KB  |  397 lines
  1. Version 1.00
  2. BEGIN Form Netdemo
  3.     AutoRedraw   = -1
  4.     BackColor    = QBColor(1)
  5.     BorderStyle  = 1
  6.     Caption      = "Netdemo"
  7.     ControlBox   = -1
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height       = Char(20)
  11.     Left         = Char(1)
  12.     MaxButton    = -1
  13.     MinButton    = -1
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(2)
  17.     Visible      = -1
  18.     Width        = Char(76)
  19.     WindowState  = 0
  20.     BEGIN Menu mnu1_file
  21.         Caption      = "&File"
  22.         Checked      = 0
  23.         Enabled      = -1
  24.         Separator    = 0
  25.         Tag          = ""
  26.         Visible      = -1
  27.         BEGIN Menu mnu1_shell
  28.             Caption      = "&Shell to DOS"
  29.             Checked      = 0
  30.             Enabled      = -1
  31.             Separator    = 0
  32.             Tag          = ""
  33.             Visible      = -1
  34.         END
  35.         BEGIN Menu Mnu1_exit
  36.             Caption      = "E&xit"
  37.             Checked      = 0
  38.             Enabled      = -1
  39.             Separator    = 0
  40.             Tag          = ""
  41.             Visible      = -1
  42.         END
  43.     END
  44.     BEGIN Menu mnu1_wks
  45.         Caption      = "&Workstation"
  46.         Checked      = 0
  47.         Enabled      = -1
  48.         Separator    = 0
  49.         Tag          = ""
  50.         Visible      = -1
  51.         BEGIN Menu mnu1_basic
  52.             Caption      = "&Basic Information"
  53.             Checked      = 0
  54.             Enabled      = -1
  55.             Separator    = 0
  56.             Tag          = ""
  57.             Visible      = -1
  58.         END
  59.         BEGIN Menu mnu1_shellinfo
  60.             Caption      = "&Shell Information"
  61.             Checked      = 0
  62.             Enabled      = -1
  63.             Separator    = 0
  64.             Tag          = ""
  65.             Visible      = -1
  66.         END
  67.         BEGIN Menu mnu1_servers
  68.             Caption      = "&Attached Servers"
  69.             Checked      = 0
  70.             Enabled      = -1
  71.             Separator    = 0
  72.             Tag          = ""
  73.             Visible      = -1
  74.         END
  75.     END
  76.     BEGIN Menu mnu1_users
  77.         Caption      = "&Connected Users"
  78.         Checked      = 0
  79.         Enabled      = -1
  80.         Separator    = 0
  81.         Tag          = ""
  82.         Visible      = -1
  83.         BEGIN Menu mnu1_user
  84.             Caption      = "&Show Connected Users"
  85.             Checked      = 0
  86.             Enabled      = -1
  87.             Separator    = 0
  88.             Tag          = ""
  89.             Visible      = -1
  90.         END
  91.         BEGIN Menu mnu1_log_time
  92.             Caption      = "&User Login Time"
  93.             Checked      = 0
  94.             Enabled      = -1
  95.             Separator    = 0
  96.             Tag          = ""
  97.             Visible      = -1
  98.         END
  99.         BEGIN Menu mnu1_user_script
  100.             Caption      = "&View User Login Script"
  101.             Checked      = 0
  102.             Enabled      = -1
  103.             Separator    = 0
  104.             Tag          = ""
  105.             Visible      = -1
  106.         END
  107.         BEGIN Menu menu1_Clear
  108.             Caption      = "&Clear_Connection"
  109.             Checked      = 0
  110.             Enabled      = -1
  111.             Separator    = 0
  112.             Tag          = ""
  113.             Visible      = -1
  114.         END
  115.     END
  116.     BEGIN Menu mnu1_print
  117.         Caption      = "&Print_Setup"
  118.         Checked      = 0
  119.         Enabled      = -1
  120.         Separator    = 0
  121.         Tag          = ""
  122.         Visible      = -1
  123.         BEGIN Menu mnu1_LPT1
  124.             Caption      = "LPT&1"
  125.             Checked      = 0
  126.             Enabled      = -1
  127.             Separator    = 0
  128.             Tag          = ""
  129.             Visible      = -1
  130.         END
  131.         BEGIN Menu mnu1_LPT2
  132.             Caption      = "LPT&2"
  133.             Checked      = 0
  134.             Enabled      = -1
  135.             Separator    = 0
  136.             Tag          = ""
  137.             Visible      = -1
  138.         END
  139.         BEGIN Menu mnu1_LPT3
  140.             Caption      = "LPT&3"
  141.             Checked      = 0
  142.             Enabled      = -1
  143.             Separator    = 0
  144.             Tag          = ""
  145.             Visible      = -1
  146.         END
  147.     END
  148.     BEGIN Menu mnu1_general
  149.         Caption      = "&General"
  150.         Checked      = 0
  151.         Enabled      = -1
  152.         Separator    = 0
  153.         Tag          = ""
  154.         Visible      = -1
  155.         BEGIN Menu mnu1_ServerTime
  156.             Caption      = "&Server Time"
  157.             Checked      = 0
  158.             Enabled      = -1
  159.             Separator    = 0
  160.             Tag          = ""
  161.             Visible      = -1
  162.         END
  163.         BEGIN Menu mnu1_msgMode
  164.             Caption      = "Set &Message Mode"
  165.             Checked      = 0
  166.             Enabled      = -1
  167.             Separator    = 0
  168.             Tag          = ""
  169.             Visible      = -1
  170.         END
  171.         BEGIN Menu mnu1_ConMsg
  172.             Caption      = "Send &Console Message"
  173.             Checked      = 0
  174.             Enabled      = -1
  175.             Separator    = 0
  176.             Tag          = ""
  177.             Visible      = -1
  178.         END
  179.         BEGIN Menu mnu1_BMsg
  180.             Caption      = "Send &Broadcast Message"
  181.             Checked      = 0
  182.             Enabled      = -1
  183.             Separator    = 0
  184.             Tag          = ""
  185.             Visible      = -1
  186.         END
  187.     END
  188.     BEGIN Menu mnu1_More
  189.         Caption      = "&More"
  190.         Checked      = 0
  191.         Enabled      = -1
  192.         Separator    = 0
  193.         Tag          = ""
  194.         Visible      = -1
  195.         BEGIN Menu mnu1_WVSC
  196.             Caption      = "&About WVSC"
  197.             Checked      = 0
  198.             Enabled      = -1
  199.             Separator    = 0
  200.             Tag          = ""
  201.             Visible      = -1
  202.         END
  203.         BEGIN Menu mnu1_netware
  204.             Caption      = "&More On NetDemo"
  205.             Checked      = 0
  206.             Enabled      = -1
  207.             Separator    = 0
  208.             Tag          = ""
  209.             Visible      = -1
  210.         END
  211.     END
  212.     BEGIN PictureBox addrbox
  213.         AutoRedraw   = -1
  214.         BackColor    = QBColor(0)
  215.         BorderStyle  = 0
  216.         DragMode     = 0
  217.         Enabled      = -1
  218.         ForeColor    = QBColor(15)
  219.         Height       = Char(4)
  220.         Left         = Char(12)
  221.         MousePointer = 0
  222.         TabIndex     = 0
  223.         TabStop      = -1
  224.         Tag          = ""
  225.         Top          = Char(12)
  226.         Visible      = -1
  227.         Width        = Char(50)
  228.     END
  229. END
  230. '$FORM Moreinfo
  231. '$FORM Wvsc
  232. '$FORM Sendbmsg
  233. '$FORM Console
  234. '$FORM Setmode
  235. '$FORM Time
  236. '$FORM Print1
  237. '$FORM ClearCon
  238. '$FORM Uselog1
  239. '$FORM Ulogtime
  240. '$FORM Conusers
  241. '$FORM Servers
  242. '$FORM Wkshell
  243. '$FORM Wkbasic
  244. '$INCLUDE: 'VBDEF.BI'
  245. '$INCLUDE: 'CNTRL.BI'
  246. COMMON SHARED UName$
  247. COMMON SHARED UserID$
  248. COMMON SHARED LPTNum%
  249.  
  250. SUB Form_Click ()
  251.  
  252. END SUB
  253.  
  254. SUB Form_Load ()
  255. Screen.ControlPanel(MENU_BACKCOLOR) = WHITE
  256. Screen.ControlPanel(MENU_SELECTED_BACKCOLOR) = BRIGHT_BLUE
  257.  
  258. AddrBox.forecolor = 4
  259. AddrBox.currentx = 20
  260. AddrBox.currenty = 0
  261. AddrBox.PRINT "*"
  262. AddrBox.currentx = 27
  263. AddrBox.currenty = 0
  264. AddrBox.PRINT "* "
  265.  
  266. AddrBox.currentx = 1
  267. AddrBox.currenty = 1
  268. AddrBox.PRINT "╔"
  269. AddrBox.currentx = 1
  270. AddrBox.currenty = 2
  271. AddrBox.PRINT "╚"
  272.  
  273. AddrBox.currentx = 47
  274. AddrBox.currenty = 1
  275. AddrBox.PRINT " ╗   "
  276. AddrBox.currentx = 47
  277. AddrBox.currenty = 2
  278. AddrBox.PRINT " ╝   "
  279.  
  280. AddrBox.forecolor = 15
  281. AddrBox.currentx = 22
  282. AddrBox.currenty = 0
  283. AddrBox.PRINT "WVSC "
  284.  
  285. AddrBox.currentx = 3
  286. AddrBox.currenty = 1
  287. AddrBox.PRINT "West Valley Software Company  (408) 336-WVSC"
  288. AddrBox.currentx = 3
  289. AddrBox.currenty = 2
  290. AddrBox.PRINT "Post Office Box 597,  Ben Lomond,  CA  95005"
  291.  
  292. END SUB
  293.  
  294. SUB Form_Unload (Cancel AS INTEGER)
  295.  
  296. END
  297. END SUB
  298.  
  299. SUB menu1_Clear_Click ()
  300. netdemo.HIDE
  301. ClearCon.SHOW
  302. END SUB
  303.  
  304. SUB mnu1_backbind_Click ()
  305. END SUB
  306.  
  307. SUB mnu1_basic_Click ()
  308. netdemo.HIDE
  309. Wkbasic.SHOW
  310. END SUB
  311.  
  312. SUB mnu1_BMsg_Click ()
  313. netdemo.HIDE
  314. Sendbmsg.SHOW
  315. END SUB
  316.  
  317. SUB mnu1_ConMsg_Click ()
  318. netdemo.HIDE
  319. Console.SHOW
  320. END SUB
  321.  
  322. SUB Mnu1_exit_Click ()
  323. END
  324. END SUB
  325.  
  326. SUB mnu1_log_time_Click ()
  327. netdemo.HIDE
  328. Ulogtime.SHOW
  329. END SUB
  330.  
  331. SUB mnu1_LPT1_Click ()
  332. LPTNum% = 0
  333. netdemo.HIDE
  334. Print1.SHOW
  335. END SUB
  336.  
  337. SUB mnu1_LPT2_Click ()
  338. LPTNum% = 1
  339. netdemo.HIDE
  340. Print1.SHOW
  341. END SUB
  342.  
  343. SUB mnu1_LPT3_Click ()
  344. LPTNum% = 2
  345. netdemo.HIDE
  346. Print1.SHOW
  347. END SUB
  348.  
  349. SUB mnu1_msgMode_Click ()
  350. netdemo.HIDE
  351. Setmode.SHOW
  352. END SUB
  353.  
  354. SUB mnu1_netware_Click ()
  355. netdemo.HIDE
  356. Moreinfo.SHOW
  357. END SUB
  358.  
  359. SUB mnu1_servers_Click ()
  360. netdemo.HIDE
  361. Servers.SHOW
  362. END SUB
  363.  
  364. SUB mnu1_ServerTime_Click ()
  365. netdemo.HIDE
  366. Time.SHOW
  367. END SUB
  368.  
  369. SUB mnu1_shellinfo_Click ()
  370. netdemo.HIDE
  371. Wkshell.SHOW
  372. END SUB
  373.  
  374. SUB mnu1_shell_Click ()
  375. CLS
  376. SHELL
  377. END SUB
  378.  
  379. SUB mnu1_users_Click ()
  380. END SUB
  381.  
  382. SUB mnu1_user_Click ()
  383. netdemo.HIDE
  384. Conusers.SHOW
  385. END SUB
  386.  
  387. SUB mnu1_user_script_Click ()
  388. netdemo.HIDE
  389. Uselog1.SHOW
  390. END SUB
  391.  
  392. SUB mnu1_WVSC_Click ()
  393. netdemo.HIDE
  394. Wvsc.SHOW
  395. END SUB
  396.  
  397.